home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / slopes < prev    next >
Encoding:
Text File  |  1995-05-01  |  2.9 KB  |  112 lines
  1. #!vsl
  2.  
  3. // $Id: slopes,v 1.1.1.1 1995/05/01 15:48:50 zeller Exp $ 
  4. // Testdatei fuer "slopes.vsl"
  5.  
  6. // $Log: slopes,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:50  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:00:58  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.2  1993/05/22  20:22:42  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.1  1991/07/08  06:01:56  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:04:58  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 4.1  1991/05/25  12:52:28  zeller
  23. // Neue Version mit folgenden Eigenschaften:
  24. // Let- und Where-Konstrukten;
  25. // Lokalen und globalen Funktionen, Overloading;
  26. // Erweiterten Fehlermeldungen.
  27. // 
  28. // Revision 3.2  1991/04/27  14:46:24  zeller
  29. // Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
  30. // 
  31. // Revision 3.1  1991/02/27  02:10:21  zeller
  32. // Umstellung auf neue Syntax (fast ganz wieder die alte)
  33. // 
  34. // Revision 2.2  1991/02/26  11:51:35  zeller
  35. // Umstellung von 'dispVSL' auf 'vsl'
  36. // 
  37. // Revision 2.1  1991/02/26  11:45:58  zeller
  38. // Anpassung auf neue Syntax (vorerst ungetestet)
  39. // 
  40. // Revision 1.7  1991/02/10  18:24:57  zeller
  41. // Letzte Definition muss global sein, um nicht geloescht zu werden
  42. // 
  43. // Revision 1.6  1991/01/29  15:27:03  zeller
  44. // Version eingefuehrt
  45. // 
  46. // Revision 1.5  1990/08/28  19:24:42  zeller
  47. // main() entfernt
  48. // 
  49. // Revision 1.4  1990/08/28  15:08:17  zeller
  50. // ID angepasst
  51. // 
  52. // Revision 1.3  1990/08/26  17:33:12  zeller
  53. // Neu: punchcard_test
  54. // 
  55. // Revision 1.2  1990/08/26  13:46:05  zeller
  56. // ID's korrigiert
  57. // 
  58. // Revision 1.1  1990/08/26  13:44:04  zeller
  59. // Initial revision
  60. // 
  61.  
  62. #include <std.vsl>
  63. #include <slopes.vsl>
  64.  
  65. arrow_test() =
  66.   fix(vcenter(w_arrow()) ^ 20) & vwhite() &
  67.   fix(vcenter(e_arrow()) ^ 20) & vwhite() &
  68.   fix(hcenter(n_arrow()) ^ 20) & vwhite() &
  69.   fix(hcenter(s_arrow()) ^ 20);
  70.  
  71. slope_arrow_test() =
  72.   fix(ne_arrow() ^ 20) & vwhite() &
  73.   fix(se_arrow() ^ 20) & vwhite() &
  74.   fix(nw_arrow() ^ 20) & vwhite() &
  75.   fix(sw_arrow() ^ 20);
  76.  
  77. angle_test() =
  78.   fix(w_angle() ^ 20) & vwhite() &
  79.   fix(e_angle() ^ 20) & vwhite() &
  80.   fix(n_angle() ^ 20) & vwhite() &
  81.   fix(s_angle() ^ 20);
  82.  
  83. punchcard_test() =
  84.   punchcard("A punchcard.");
  85.  
  86. rhomb_test() =
  87.   rhomb("A rhomb.");
  88.  
  89. octogon_test() =
  90.   octogon("An octogon.");
  91.  
  92. // all tests
  93. all_slopes_tests() = 
  94.   arrow_test()          & vcenter(" // arrow_test()")
  95. | hwhite()
  96. | slope_arrow_test()     & vcenter(" // slope_arrow_test()")
  97. | hwhite()
  98. | angle_test()             & vcenter(" // angle_test()")
  99. | hwhite()
  100. | punchcard_test()         & vcenter(" // punchcard_test()")
  101. | hwhite()
  102. | rhomb_test()             & vcenter(" // rhomb_test()")
  103. | hwhite()
  104. | octogon_test()         & vcenter(" // octogon_test()")
  105. ;
  106.  
  107. slopes_explanation() =
  108.   "This is '$RCSfile: slopes,v $ $Revision: 1.1.1.1 $', based on '" & slopes_version() & "'.";
  109.  
  110. slopes_main() = slopes_explanation() | all_slopes_tests();
  111. slopes_main(_...) -> slopes_main();
  112.